home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
vis082s.arc
/
THINGS.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-04-17
|
1KB
|
43 lines
(***
This One Goes in SUBS2.PAS - Right where it
it trys to print type menu if the Function Menu
***)
if k='?'
then
begin
if not configset.normenu {<- take that out } then begin
if mfn='MAIN' then mmenu;
if mfn='RUMOR' then rummenu;
if mfn='BBSLIST' then bbsmenu;
if Mfn='SDOORS' then Sdoors;
if mfn='BULLET' then bulletm;
if mfn='CONFIG' then configm;
if mfn='DATA' then datam;
if mfn='DOORS' then doorsm;
if mfn='EMAIL' then emailm;
if mfn='VOTING' then votingm;
if mfn='FILE' then filem;
if mfn='GROUP' then groupm;
if mfn='SPONSOR' then sponsorm;
if mfn='SYSOP' then sysopm;
if mfn='NEWS' then newsm;
if mfn='FEED' then feedm;
if mfn='ABOUT' then aboutm;
if mfn='DSYSOP' then dsysopm;
if mfn='ESYSOP' then esysopm;
if mfn='VSYSOP' then vsysopm;
if mfn='FSYSOP' then fsysop;
if mfn='UEDIT' then ueditm;
if mfn='FBATCH' then batchm;
if mfn='NEWSCAN' then fnewscan;
if mfn='FCHANGE' then fchange;
if mfn='GFILE' then gfile;
if mfn='SGFILE' then sgfile;
if mfn='CONFIGL' then configl;
if mfn='ESCAN' then escan;
end